home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / e-q / pbdemo304 / install / installharddisk < prev    next >
Text File  |  1993-03-16  |  3KB  |  123 lines
  1. .bra {
  2. .ket }
  3. .key DemoDir,DataDir,DemoIcon,LhA_path
  4. ; Set the directories for the Pro-Board_DEMO and its PCB data files.
  5. ; These directories may be the same.
  6. ; DemoIcon should be NIL: if PB_DEMO installed to Root or Volume.
  7. ; Will be ignored if parent of the destination directory already has an icon.
  8.  
  9. ECHO "Installing Demo to {DemoDir}"
  10. ECHO "Installing Data to {DataDir}"
  11. ECHO "   DemoIcon set to {DemoIcon}"
  12. ECHO "   LhA path set to {LhA_path}"
  13.  
  14. IF {LhA_path$"Nothing"} EQ "Nothing"
  15.    ECHO " "
  16.    ECHO "Usage: [EXECUTE] InstallHardDisk DemoDir DataDir LhA_path
  17.    ECHO " "
  18.    ECHO "  [EXECUTE] required if your version of AmigaDOS does"
  19.    ECHO "            not support the Script bit"
  20.    ECHO "  DemoDir:  Volume:Directory-path to install demo program"
  21.    ECHO "  DataDir:  Volume:Directory-path to install data files"
  22.    ECHO "  LhA_path: Volume:Directory-path/filename of LhA-compatible"
  23.    ECHO "            file extractor."
  24.    ECHO "  "
  25.    ECHO "    THIS BATCH FILE IS BEST USED WHEN CALLED BY `To-HardDisk'"
  26.    ECHO "    WHICH WILL USE A FILE REQUESTER TO SIMPLIFY THE PROCEDURE"
  27.    ECHO "  "
  28.    QUIT
  29. ENDIF
  30.  
  31. IF NOT EXISTS {LhA_path}
  32.   ReqRequest " LhA must be in the command path " Quit "Try again"
  33.    IF WARN
  34.       SKIP OutaHere
  35.    ENDIF
  36.   IF NOT EXISTS {LhA_path}
  37.     ReqRequest " LhA really MUST be in the command path " Quit
  38.     SKIP OutaHere
  39.   ENDIF
  40. ENDIF
  41.  
  42. ASSIGN >NIL: ProDemoArc: EXISTS   ; May have been set by another batch file
  43. IF NOT WARN
  44.   ASSIGN ProDemoArc: /  ; Point to parent directory
  45. ENDIF
  46.  
  47. IF NOT EXISTS {DemoDir}
  48.   ECHO "Creating demo directory {DemoDir}"
  49.   MAKEDIR {DemoDir}
  50.   IF FAIL
  51.     ReqRequest " Could not create {DemoDir} " QUIT
  52.     SKIP CleanUp
  53.   ENDIF
  54. ENDIF
  55.  
  56. IF NOT EXISTS {DataDir}
  57.   ECHO "Creating data directory {DataDir}"
  58.   MAKEDIR {DataDir}
  59.   IF FAIL
  60.     ReqRequest " Could not create {DataDir} " QUIT
  61.     SKIP CleanUp
  62.   ELSE
  63.     SKIP Install
  64.   ENDIF
  65. ELSE
  66.   CD {DataDir}
  67.   IF NOT EXISTS afilib   ; Library Part database file.  Do not overwrite.
  68.     SKIP Install
  69.   ENDIF
  70. ENDIF
  71.  
  72. ; Found Library Part database; so this is an UPDATE
  73.  
  74. ProDemoArc:Install/ReqRequest " Overwrite Library Parts? " " Yes " " No "
  75. IF NOT WARN
  76.   ProDemoArc:Install/ReqRequest " Install to DF0: instead? " " Yes " " No "
  77.   IF WARN
  78.     EXECUTE ProDemoArc:Install/To-DF0
  79.   ENDIF
  80.   SKIP CleanUp
  81. ENDIF
  82.  
  83.  
  84. LAB Install
  85.  
  86. CD {DemoDir}
  87. {LhA_path} x ProDemoArc:PRODEMO.LHA
  88. IF NOT EXISTS {DemoIcon}
  89.   COPY ProDemoArc:Pro-Board.icon to {DemoIcon}
  90. ENDIF
  91. CD {DataDir}
  92. {LhA_path} x ProDemoArc:PRODATA.LHA
  93.  
  94.  
  95. LAB AddAssign  ; Prompt user to modify User-StartUp, if it exists.
  96. ;                Otherwise, tell user how to change StartUp-Sequence
  97.  
  98. ASSIGN Pro-Data: {DataDir}
  99. ECHO >RAM:ProData.assign "ASSIGN Pro-Data:  {DataDir}"
  100. IF EXISTS S:User-StartUp
  101.   ProDemoArc:Install/ReqRequest " Add Pro-Data: to S:User-StartUp? " " Yes " " No "
  102.   IF WARN
  103.     JOIN S:User-StartUp RAM:ProData.assign as RAM:User-StartUp
  104.     COPY RAM:User-StartUp S:
  105.     DELETE >NIL: RAM:User-StartUp
  106.   ENDIF
  107.   SKIP CleanUp
  108. ELSE
  109.    ProDemoArc:Install/ReqRequest " Update S:StartUp-Sequence to include ASSIGN " " Continue "
  110.    ProDemoArc:Install/ReqRequest " Look at file `ProData.assign' in RAM: " "Continue "
  111. ENDIF
  112.  
  113.  
  114. LAB CleanUp
  115.  
  116. ASSIGN ProDemoArc:
  117.  
  118.  
  119. LAB OutaHere
  120.  
  121. EndCLI
  122.  
  123.